"Fixed-width font for the captions in METAFONT proofmode output";
% Each character is 5pt wide times the magnification used in proofmode.
fontidentifier "FIGTOP"; ptsize=10;
input cmbase;
if mode=2: highres=1;
else: highres=0;
fi;
if highres>0: designsiz=10 round 6mag;	% printer pixels per MF pixel on Alphatype
	% Alphatype designsize should be a multiple of 10 and at least 40
else: designsiz=round 4mag;	% printer pixels per MF pixel on low-resolution devices
fi;
pixwd*pixels=designsiz;
magnification pixwd;
new pixels; pixels=designsiz;
hresolution pixels; vresolution pixels;

ph=220/36; px=160/36; pe=80/36; pd=80/36;
pb=30/36; po=4/36; ps=0/36; pas=34/36; pa=.5ph;
pw=pwi=pwii=23/36; pwiii=29/36;
pwiv=pwv=23/36; aspect=0.95; pdel=10/36; fudge=.8;
9pu=5; lcs=1.6; ucs=1.6; sc=0; ls=0;
slant=0; sqrttwo=sqrt 2; fixwidth=1; crisp=0;
phh=phhh=ph; pssd=0; pdd=.5pd; varg=0; lowast=1; ligs=0.
call fontbegin;
input roman;
end